home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume24 / chemtab / part03 < prev    next >
Encoding:
Internet Message Format  |  1991-03-12  |  4.4 KB
  1. Subject:  v24i038:  Manipulate data on the chemical elements, Part03/03
  2. Newsgroups: comp.sources.unix
  3. Approved: rsalz@uunet.UU.NET
  4. X-Checksum-Snefru: e152dfcf 4f82b1f9 9d781185 071cd639
  5.  
  6. Submitted-by: "J.E. King" <jek5036@ultb.isc.rit.edu>
  7. Posting-number: Volume 24, Issue 38
  8. Archive-name: chemtab/part03
  9.  
  10. #! /bin/sh
  11. # This is a shell archive.  Remove anything before this line, then feed it
  12. # into a shell via "sh file" or similar.  To overwrite existing files,
  13. # type "sh file -c".
  14. # The tool that generated this appeared in the comp.sources.unix newsgroup;
  15. # send mail to comp-sources-unix@uunet.uu.net if you want that tool.
  16. # Contents:  closevalues doregisgph.c.rej undefs.h windows.h
  17. # Wrapped by rsalz@litchi.bbn.com on Wed Mar 13 13:55:20 1991
  18. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  19. echo If this archive is complete, you will see the following message:
  20. echo '          "shar: End of archive 3 (of 3)."'
  21. if test -f 'closevalues' -a "${1}" != "-c" ; then 
  22.   echo shar: Will not clobber existing file \"'closevalues'\"
  23. else
  24.   echo shar: Extracting \"'closevalues'\" \(461 characters\)
  25.   sed "s/^X//" >'closevalues' <<'END_OF_FILE'
  26. X# These are the 'close values'  When selecting characteristics, you can choose
  27. X# 'close to' and the value was to be within this range from the value you type
  28. XLEAVE_THIS_ONE 000.00
  29. XAtomic_Number 005.00
  30. XAtomic_Mass 010.00
  31. XFamily 001.00
  32. XRow 001.00
  33. XValence_Electro 001.00
  34. XMelting_Tempera 100.00
  35. XBoiling_Tempera 100.00
  36. XIonization_Ener 025.00
  37. XDiscovery_Year 050.00
  38. XElectronegativi 000.20
  39. XSpecific_Heat 000.05
  40. XDensity 000.20
  41. XAtomic_Radius 000.05
  42. XLEAVE_THIS_ONE 000.00
  43. END_OF_FILE
  44.   if test 461 -ne `wc -c <'closevalues'`; then
  45.     echo shar: \"'closevalues'\" unpacked with wrong size!
  46.   fi
  47.   # end of 'closevalues'
  48. fi
  49. if test -f 'doregisgph.c.rej' -a "${1}" != "-c" ; then 
  50.   echo shar: Will not clobber existing file \"'doregisgph.c.rej'\"
  51. else
  52.   echo shar: Extracting \"'doregisgph.c.rej'\" \(360 characters\)
  53.   sed "s/^X//" >'doregisgph.c.rej' <<'END_OF_FILE'
  54. X***************
  55. X*** 322,328 ****
  56. X      }
  57. X  
  58. X      firstup++;
  59. X  if (gtot <= 0) {
  60. X          for (tmp = e; tmp->next != NULL; tmp = tmp->next) {
  61. X              find(c1, tmp->anum);
  62. X              if (x == -999.0) continue;
  63. X--- 322,328 ----
  64. X      }
  65. X  
  66. X      firstup++;
  67. X!     if (gtot > 0) {
  68. X          for (tmp = e; tmp->next != NULL; tmp = tmp->next) {
  69. X              find(c1, tmp->anum);
  70. X              if (x == -999.0) continue;
  71. END_OF_FILE
  72.   if test 360 -ne `wc -c <'doregisgph.c.rej'`; then
  73.     echo shar: \"'doregisgph.c.rej'\" unpacked with wrong size!
  74.   fi
  75.   # end of 'doregisgph.c.rej'
  76. fi
  77. if test -f 'undefs.h' -a "${1}" != "-c" ; then 
  78.   echo shar: Will not clobber existing file \"'undefs.h'\"
  79. else
  80.   echo shar: Extracting \"'undefs.h'\" \(448 characters\)
  81.   sed "s/^X//" >'undefs.h' <<'END_OF_FILE'
  82. X/*
  83. X * chemtab - a periodic table data base 1990 Jim King (pulsar@lsrhs)
  84. X *
  85. X * undefs.h - carries all the numbers for undefined vars throughout
  86. X */
  87. X
  88. Xstatic int    VAL = 9,
  89. X        MEL = -273,
  90. X        BOI = -273,
  91. X        FIO = -1,
  92. X        YEA = -1;
  93. Xstatic float    ENG = -1.5,
  94. X        SPHT = -1.5,
  95. X        DENS = -1.5,
  96. X        ARD = -1.5;
  97. X    
  98. X/* Close values */
  99. Xextern float    closev[15]; /* = {
  100. X    0.00, 5.00, 10.00, 1.00, 1.00, 1.00, 100.00, 100.00, 25.00, 50.00,
  101. X    0.20, 0.05, 0.20, 0.05, 0.00
  102. X}; */
  103. X 
  104. END_OF_FILE
  105.   if test 448 -ne `wc -c <'undefs.h'`; then
  106.     echo shar: \"'undefs.h'\" unpacked with wrong size!
  107.   fi
  108.   # end of 'undefs.h'
  109. fi
  110. if test -f 'windows.h' -a "${1}" != "-c" ; then 
  111.   echo shar: Will not clobber existing file \"'windows.h'\"
  112. else
  113.   echo shar: Extracting \"'windows.h'\" \(331 characters\)
  114.   sed "s/^X//" >'windows.h' <<'END_OF_FILE'
  115. X/*
  116. X * chemtab - a periodic table data base (C) 1990 Jim King (pulsar@lsrhs)
  117. X *
  118. X * windows.h    Curses WINDOW init
  119. X */
  120. X
  121. X#include <curses.h>
  122. X
  123. XWINDOW    *srt,                /* Sort chrst window */
  124. X    *graph,                /* Graph/table Window */
  125. X    *mn,                /* Main Window */
  126. X    *btm,                /* Bottom line */
  127. X    *hlp,                /* Help screen */
  128. X    *cur;                /* Stop job handling */
  129. END_OF_FILE
  130.   if test 331 -ne `wc -c <'windows.h'`; then
  131.     echo shar: \"'windows.h'\" unpacked with wrong size!
  132.   fi
  133.   # end of 'windows.h'
  134. fi
  135. echo shar: End of archive 3 \(of 3\).
  136. cp /dev/null ark3isdone
  137. MISSING=""
  138. for I in 1 2 3 ; do
  139.     if test ! -f ark${I}isdone ; then
  140.     MISSING="${MISSING} ${I}"
  141.     fi
  142. done
  143. if test "${MISSING}" = "" ; then
  144.     echo You have unpacked all 3 archives.
  145.     rm -f ark[1-9]isdone
  146. else
  147.     echo You still must unpack the following archives:
  148.     echo "        " ${MISSING}
  149. fi
  150. exit 0
  151. exit 0 # Just in case...
  152.